#!/usr/local/bin/perl5

$file=pop @ARGV;

open FILE,"<",$file;
while($content=<FILE>)
{
	print "$content" if($content=~/a\b/);
}